//Colocar no X3_VLDUSER do campo F1_DOC --> U_AGC_NFZERO()

#include "rwmake.ch"       

User Function MED02A01(ntam)     
   CNFISCAL := STRZERO(VAL(CNFISCAL),ntam)           
Return(.T.)